home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 25 / 64er_Magazin_Sonderheft_25_19xx_Markt__Technik_de.d64 / floppy srq (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  46 lines
  1. 10 rem open 1,8,1,"0:floppy srq.obj"
  2. 12 rem open 2,4
  3. 13 sys 32768; einsprung fuer neuen profiass
  4. 14 ;
  5. 15 ; **************************
  6. 16 ; * floppy service request *
  7. 17 ; *                        *
  8. 18 ; *    von  uwe gerlach    *
  9. 19 ; *   tel.  06151/316205   *
  10. 20 ; *    bzw.  06622/3908    *
  11. 21 ; *                        *
  12. 22 ; *        13.06.86        *
  13. 23 ; **************************
  14. 24 ;
  15. 25 ;
  16. 26 ; ueber data-line des seriellen bus
  17. 27 ; an den computer
  18. 30 ;
  19. 31 ;
  20. 100 .tit "service request c64 & vc1541 "
  21. 120 .opt oo
  22. 125 ;
  23. 130 *=$0500; im userpuffer der floppy
  24. 140 ;
  25. 500 start lda $1c00; port b des dc abfragen
  26. 510 and #%00010000; lichtschrankenbit isolieren
  27. 520 beq aus
  28. 530 :
  29. 600 ein lda $1c00;port b des dc abfragen
  30. 610 ora #%00001000; led-bit setzen
  31. 620 sta $1c00; led einschalten
  32. 650 ;
  33. 660 lda $1800; port b des bc abfragen
  34. 670 and #%11111101; data out-bit loeschen
  35. 680 sta $1800; data out nach low ziehen
  36. 690 jmp start
  37. 695 ;
  38. 700 aus lda $1c00;port b des dc abfragen
  39. 710 and #%11110111; led-bit loeschen
  40. 720 sta $1c00; led ausschalten
  41. 750 ;
  42. 760 lda $1800; port b des bc abfragen
  43. 770 ora #%00000010; data out-bit setzen
  44. 780 sta $1800; data out freigeben
  45. 790 jmp start
  46.